home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir42
/
dbinde.zip
/
CHKLOOPS.PRG
next >
Wrap
Text File
|
1993-10-10
|
2KB
|
44 lines
* -> PROGRAM NAME CHKLOOPS.PRG
* -> PURPOSE EXTRACTS 'LOOP' COMMANDS FROM A FILE
* -> AUTHOR R. S. (Bob) VAN GORDER, COMPUSERVE 73230, 2136
* -> SEE DBINDENT.DOC FOR INSTRUCTIONS
USE DBINDENT
go top
count to OL
DELE ALL
SET DELE OFF
SET TALK OFF
SET ECHO OFF
RECA FOR LTRI(ENT) = 'IF ' .OR. LTRI(ENT) = 'ELSE ' .OR.;
LTRI(ENT) = 'ENDIF ' .OR. LTRI(ENT) = 'ENDI ' .OR.;
LTRI(ENT)= 'DO WHILE' .OR. LTRI(ENT) = 'DO WHIL '
RECA FOR LTRI(ENT) = 'ENDDO ' .OR. LTRI(ENT) = 'ENDD ' .OR.;
LTRI(ENT) = 'DO ' .OR. LTRI(ENT) = 'CASE ' .OR.;
LTRI(ENT) = 'ENDCASE ' .OR. LTRI(ENT) = 'OTHERWISE '
RECA FOR LTRI(ENT) = 'ENDC ' .OR. LTRI(ENT) = 'OTHE ' .OR.;
LTRI(ENT) = 'PROCEDURE ' .OR. LTRI(ENT) = 'PROC ' .OR.;
LTRI(ENT) = 'PARA ' .OR. LTRI(ENT) = 'PARAMETERS '
RECA FOR LTRI(ENT) = 'RETU ' .OR. LTRI(ENT) = 'RETURN '
GO TOP
INSE BEFO BLANK
REPL ENT WITH '* RECAP :'
SET DELE ON
COUNT FOR LTRI(ENT) = 'IF ' TO G
GO TOP
REPL ENT WITH RTRI(ENT) + ' IF = ' + LTRI(RTRI(STR(G)))
COUNT FOR LTRI(ENT) = 'ENDIF ' .OR. LTRI(ENT) = 'ENDI ' TO G
GO TOP
REPL ENT WITH RTRI(ENT) + ' / EI = ' + LTRI(RTRI(STR(G)))
COUNT FOR LTRI(ENT) = 'DO WHILE ' TO G
GO TOP
REPL ENT WITH RTRI(ENT) + ' / DW = ' + LTRI(RTRI(STR(G)))
COUNT FOR LTRI(ENT) = 'ENDDO ' .OR. LTRI(ENT) = 'ENDD ' TO G
GO TOP
REPL ENT WITH RTRI(ENT) + ' / ED = ' + LTRI(RTRI(STR(G)))
REPL ENT WITH RTRI(ENT) + ' / ORIG # LINS = ' + LTRI(RTRI(STR(OL)))
EDIT 1
SET TALK ON
SET ECHO ON
SET STAT OFF
SET STAT ON